  {  Petrova Tatjana
     2012 /09/24
     This program works with array.}
program Aboutarray;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
 arr=array[0..99] of integer;
var
  a:^arr;
  i:integer;

begin
  new(a);
  for i:= 0 to 99 do
    a^[i]:=i;
  dispose(a);
end.
